| ggplot(data = cars) + |
| aes(x = speed) + |
| aes(y = dist) + |
geom_point(color = 'darkslateblue',
size = 4,
alpha = .8) + |
| theme_bw(base_size = 18) + |
| scale_x_continuous(limits = c(0,25)) + |
| geom_smooth() + |
| labs(y = "stopping distance") + |
| labs(title = 'A ggplot for the rest of us') + |
| labs(subtitle = 'Explicitly showing the R workflow') + |
| theme(plot.title.position = "plot") |
